home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 09-23.C < prev    next >
Text File  |  1991-05-05  |  965b  |  49 lines
  1. main()
  2. {
  3.    int row;
  4.    int old_mode;
  5.    char string[17];
  6.  
  7.    old_mode = fg_getmode();
  8.  
  9.    if (fg_testmode(3,2))
  10.       fg_setmode(3);
  11.    else if (fg_testmode(7,2))
  12.       fg_setmode(7);
  13.    else {
  14.       printf("This program requires\n");
  15.       printf("an 80-column display.\n");
  16.       exit();
  17.       }
  18.  
  19.    fg_cursor(0);
  20.    fg_setattr(9,7,0);
  21.  
  22.    for (row = 0; row < 25; row++) {
  23.       sprintf(string," This is row %2d ",row);
  24.       fg_locate(row,0);
  25.       fg_text(string,16);
  26.       fg_text(string,16);
  27.       fg_text(string,16);
  28.       fg_text(string,16);
  29.       fg_text(string,16);
  30.       }
  31.    fg_waitkey();
  32.  
  33.    fg_allocate(1);
  34.    fg_transfer(32,47,11,13,0,24,0,1);
  35.    fg_setcolor(1);
  36.    fg_rect(32,47,11,13);
  37.    fg_setattr(15,1,0);
  38.    fg_locate(12,33);
  39.    fg_text("Press any key.",14);
  40.    fg_waitkey();
  41.  
  42.    fg_transfer(0,15,22,24,32,13,1,0);
  43.    fg_waitkey();
  44.  
  45.    fg_freepage(1);
  46.    fg_setmode(old_mode);
  47.    fg_reset();
  48. }
  49.